# Title     : TODO
# Objective : TODO
# Created by: Administrator
# Created on: 2019/7/24

library(optparse)
library(magrittr)
library(tidyverse)
library(ggrepel)
library(extrafont)
library(jsonlite)

configFile<-"volcano.json"
plotConfigJson <- fromJSON(configFile)
varNames<-read_csv("Diff_Metabolite.csv") %>%
  .$Metabolite
plotConfigJson$layout$varNames<-varNames
write_json(plotConfigJson,configFile,auto_unbox =TRUE)




